#!/usr/bin/perl -W
#"mv_trans_to_sqlite.pl"  skrypt zapisujacy transakcje do bazy sql, wywolywany przez procmaila 

use strict;

my $sqlite3="/usr/local/bin/sqlite3 /tmp/sqlite3_test";

while (<> ){
	if (/Na rachunku/ ){
		split;
		my $rach=$_[3];
		my $czas="$_[7] $_[10]";
		my $ticker=$_[12];
		my $op=$_[13];
		my @tmp=split(/\*/,$_[14]);
		my $ilosc=$tmp[0];
		$ilosc=($op eq "K")?$ilosc:$ilosc*(-1);
		my $cena=$tmp[1]; $cena=~tr/,/\./;

		my $cmd='echo \'INSERT INTO ticker VALUES(';
		$cmd.="\"$ticker\",$cena,$ilosc,\"$op\",\"$czas\",\"$rach\");\'";
		$cmd.="|$sqlite3\n";

		system($cmd);
	}
}

__END__

CREATE TABLE ticker ( ticker text, cena real,ilosc int , operacja text, czas text, konto text);
